home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol3 / snip_whirlygig.dba < prev    next >
Encoding:
Text File  |  2000-09-30  |  1.1 KB  |  52 lines
  1. Rem * Title  : Colour Shock!
  2. Rem * Author : Richard Davey
  3. Rem * Date   : March 3rd 2000
  4. `    -------------------------------------------------------------------------
  5. `    Whirly Gig                                     DarkForge Snippet 7/5/2000
  6. `    -------------------------------------------------------------------------
  7. `    You have to sit and watch this one for a few moments to see the pattern
  8. `    changing and evolving. Extremely simple but quite hypnotic effect!
  9.  
  10. sync rate 0
  11. sync on
  12. hide mouse
  13.  
  14. load image "copper_waves.bmp",1
  15.  
  16. for a=1 to 6
  17.     make object plain a,100,100
  18.     position object a,50,50,50-a
  19.     texture object a,1
  20.     set object a,1,0,1
  21.     ghost object on a
  22. next a
  23.  
  24. color backdrop rgb(0,0,0)
  25.  
  26. x=object position x(1)
  27. y=object position y(1)
  28. z=object position z(1)
  29.  
  30. position camera 50,73,2
  31.  
  32. s=2
  33.  
  34. do
  35.  
  36.     zrotate object 1,wrapvalue(a#)
  37.     zrotate object 2,wrapvalue(b#)
  38.     zrotate object 3,wrapvalue(c#)
  39.     zrotate object 4,wrapvalue(d#)
  40.     zrotate object 5,wrapvalue(e#)
  41.  
  42.     inc a#,0.25+s
  43.     inc b#,0.26+s
  44.     inc c#,0.27+s
  45.     inc d#,0.28+s
  46.     inc e#,0.29+s
  47.  
  48.     sync
  49.  
  50. loop
  51.  
  52.